home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 4 / Meeting Pearls Vol. IV (1996)(GTI - Schatztruhe)[!].iso / Pearls / comm / Fido / MailManager / mm-000 / Installation / Install_MM_2.0 next >
Text File  |  1996-04-29  |  5KB  |  223 lines
  1. ;                                                                       __
  2. ; ---------------------------------------------------------------      ///
  3. ; Mail Manager Installation Script by Marco Musso & Pino Aliberti __  ///
  4. ; --------------------------------------------------------------- \\\///
  5. ;     Give credit where the credit is due                          \///
  6.  
  7. (set prompt-mmdir "Where should I install Mail Manager (a drawer called MM will be created) ?")
  8. (set help-mmdir "You must choose where to create your MM: dir...")
  9.  
  10. (set prompt-startup "Some instructions need to be added to the \"S:user-startup\" so that your system will be properly configured to use Mail Manager")
  11. (set help-startup "These are the assignments for a correct use of Mail Manager")
  12.  
  13. (set prompt-copy-locale "Shall I copy the locale files ?")
  14. (set help-copy-locale "Answer 'Yes' if you want a localized MailManager.\nIn any case I'll keep a copy of the catalogs in MM:Locale.")
  15.  
  16. (set prompt-copy-font "Shall I copy the MMBrowse and MMClean Fonts ?")
  17. (set help-copy-font "These are special fonts designed to allow more characters to be clearly displayed on the screen.")
  18.  
  19. (set message-MMprefs "Now I will run MM_Prefs.\nBy asking you for a little information MM_Prefs will create a default point configuration with which you should be immediatelly able to run Mail Manager as a 'normal' point")
  20.  
  21. (set yes-inst "Yes")
  22.  
  23. (set no-inst "No")
  24.  
  25.  
  26. ; ********************
  27. ; *** Main Program ***
  28. ; ********************
  29.  
  30. (set inst-dir (pathonly @icon))
  31. (set main-dir (tackon inst-dir "//MM"))
  32.  
  33. (complete 0)
  34.  
  35. ; *** ask the user for the MM: assign and create the directory
  36. (set mmdir (askdir (prompt prompt-mmdir)
  37.                    (help help-mmdir)
  38.                    (disk)
  39.                    (default "MAIL:")
  40.            )
  41. )
  42.  
  43. (set @default-dest (tackon mmdir "MM"))
  44. (makedir @default-dest)
  45.  
  46. (set mm-info (tackon inst-dir "//MM.info"))
  47. (copyfiles (source mm-info) (dest mmdir))
  48.  
  49. (if (not @pretend) (makeassign "MM" @default-dest))
  50.  
  51.  
  52. ; *** now we proceed with the real installation
  53.  
  54. ; *** copy History and ReadMe files
  55. (set history-files ("History#?"))
  56. (copyfiles (source main-dir) (dest "MM:") (pattern history-files) (infos))
  57.  
  58. (set readme-files ("ReadMe#?"))
  59. (copyfiles (source main-dir) (dest "MM:") (pattern readme-files) (infos))
  60.  
  61.  
  62.  
  63. ; *** copy bin files
  64. (makedir "MM:Bin")
  65. (set mmbin-info (tackon inst-dir "/Bin.info"))
  66. (copyfiles (source mmbin-info) (dest "MM:"))
  67.  
  68. (set bin-dir (tackon inst-dir "/bin"))
  69. (copyfiles (source bin-dir)
  70.            (dest "MM:Bin")
  71.            (all)
  72.            (infos)
  73. )
  74.  
  75.  
  76. (complete 10)
  77.  
  78.  
  79. ; *** copy docs files
  80. (makedir "MM:Docs")
  81. (set mmdocs-info (tackon inst-dir "/Docs.info"))
  82. (copyfiles (source mmdocs-info) (dest "MM:"))
  83.  
  84. (set doc-dir (tackon inst-dir "/docs"))
  85. (copyfiles (source doc-dir)
  86.            (dest "MM:Docs")
  87.            (all)
  88.            (infos)
  89. )
  90.  
  91.  
  92. (complete 20)
  93.  
  94.  
  95. ; *** copy registration
  96. (makedir "MM:Registration")
  97. (set mmreg-info (tackon inst-dir "/Registration.info"))
  98. (copyfiles (source mmreg-info) (dest "MM:"))
  99.  
  100. (set registration-dir (tackon inst-dir "/registration"))
  101. (copyfiles (source registration-dir)
  102.            (dest "MM:Registration")
  103.            (all)
  104.            (infos)
  105. )
  106.  
  107.  
  108. (complete 30)
  109.  
  110.  
  111. ; *** copy standard rexx files
  112. (makedir "MM:Rexx")
  113.  
  114. (set stdrexx-dir (tackon inst-dir "/rexx"))
  115. (copyfiles (source stdrexx-dir)
  116.            (dest "MM:Rexx")
  117.            (all)
  118.            (optional nofail)
  119. )
  120.  
  121.  
  122. (complete 40)
  123.  
  124.  
  125. ; *** copy previews
  126. (makedir "MM:Previews")
  127. (set mmprev-info (tackon inst-dir "/Previews.info"))
  128. (copyfiles (source mmprev-info) (dest "MM:"))
  129.  
  130. (set previews-dir (tackon inst-dir "/previews"))
  131. (copyfiles (source previews-dir)
  132.            (dest "MM:Previews")
  133.            (all)
  134.            (infos)
  135.            (optional nofail)
  136. )
  137.  
  138.  
  139. (complete 50)
  140.  
  141.  
  142. ; *** copy contrib
  143. (makedir "MM:Contrib")
  144.  
  145. (set contrib-dir (tackon inst-dir "/contrib"))
  146. (copyfiles (source contrib-dir)
  147.            (dest "MM:Contrib")
  148.            (all)
  149.            (optional nofail)
  150. )
  151.  
  152.  
  153. (complete 60)
  154.  
  155.  
  156. ; *** copy the default userlist
  157. (set ex-userlist (tackon inst-dir "/other/MM.UserList"))
  158. (copyfiles (source ex-userlist) (dest "MM:") )
  159.  
  160.  
  161. (complete 70)
  162.  
  163.  
  164. ; *** copy example CFGs
  165. (makedir "MM:Config")
  166.  
  167. (set config-dir (tackon inst-dir "/config"))
  168. (copyfiles (source config-dir)
  169.            (dest "MM:Config")
  170.            (all)
  171.            (optional nofail)
  172. )
  173.  
  174.  
  175. (complete 80)
  176.  
  177.  
  178. ; *** copy font files
  179. (set fonts-dir (tackon inst-dir "/fonts"))
  180. (if (askbool (prompt prompt-copy-font)
  181.              (help help-copy-font)
  182.              (default 1)
  183.              (choices yes-inst no-inst))
  184.         (copyfiles  (prompt prompt-copy-font)
  185.                     (help help-copy-font)
  186.                     (source fonts-dir)
  187.                     (dest "FONTS:")
  188.                     (all)
  189.                     (optional nofail)
  190.         )
  191. )
  192.  
  193.  
  194. (complete 90)
  195.  
  196.  
  197. ; *** warn the user that we must write to the user-startup
  198. (startup "Mail Manager" (prompt prompt-startup)
  199.                         (help help-startup)
  200.                         (command
  201.                                 "if exists \"" @default-dest "\"\n"
  202.                 "   assign MM: \"" @default-dest "\"\n"
  203.                 "endif\n"
  204.                         )
  205. )
  206.  
  207.  
  208. (complete 95)
  209.  
  210. ; *** Run MM_Prefs
  211. ( message message-MMprefs )
  212.  
  213. (run "MM:Bin/MM_Prefs")
  214.  
  215.  
  216. (complete 100)
  217.  
  218. ; **********************************************
  219. ; **** End Mail Manager Installation Script ****
  220. ; **********************************************
  221.  
  222.  
  223.